home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs13.d81 / battle64.arc / 1670 AUTODIAL (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  4KB  |  180 lines
  1. 10 REM ********************************
  2. 20 REM ******** 1670 AUTODIAL *********
  3. 30 REM ********************************
  4. 40 REM ************* BY ***************
  5. 50 REM ********************************
  6. 60 REM ******** DAVID BRADLEY *********
  7. 70 REM ********************************
  8. 80 :
  9. 90 OPEN2,2,0,CHR$(6)+CHR$(0)
  10. 100 REM OPEN15,9,15,"S0:1670 AUTODIAL":CLOSE15:SAVE"1670 AUTODIAL",9
  11. 110 PRINT#2,"[193][212][214]0"
  12. 120 :
  13. 130 REM      *********************
  14. 140 REM      *** VARIABLE LIST ***
  15. 150 REM      *********************
  16. 160 :
  17. 170 REM A$  = INPUT FROM MODEM
  18. 180 REM ER  = MODEM NO RESPOND TIME-OUT
  19. 190 REM L   = SOUND ROUTINE COUNTER
  20. 200 REM S   = SID REFERENCE VALUE
  21. 210 REM XX  = TIME DELAY
  22. 220 REM AB  = ABORT CHECK
  23. 230 REM AB$ = ABORT GET
  24. 240 REM I   = TIME DELAY/MISC COUNTER
  25. 250 REM G$  = YES/NO
  26. 260 REM NU$ = NUMBER TO DIAL
  27. 270 REM MS$ = MODEM STATUS
  28. 280 REM NA  = NUMBER OF ATTEMPTS
  29. 281 REM PT$ = PULSE OR TONE
  30. 282 REM PT  = PULSE OR TONE
  31. 290 :
  32. 300 REM      *************
  33. 310 REM      *** SETUP ***
  34. 320 REM      *************
  35. 330 :
  36. 340 PRINT"[147]"
  37. 350 PRINTCHR$(14),CHR$(8)
  38. 360 XX=0
  39. 370 A$=""
  40. 380 AB$=""
  41. 390 ER=0
  42. 400 G$=""
  43. 410 I=0
  44. 420 L=0
  45. 430 S=0
  46. 440 NU$=""
  47. 450 MS$=""
  48. 460 NA=1
  49. 470 AB=0
  50. 480 POKE53280,0
  51. 490 POKE53281,0
  52. 500 PRINT""
  53. 510 :
  54. 520 REM      *************
  55. 530 REM      *** START ***
  56. 540 REM      *************
  57. 550 :
  58. 560 XX=250:POKE808,225:GOSUB1260:IFPT$=""THENGOSUB1650
  59. 570 PRINT"      1670 [193]UTODIAL [194]Y [196]AVID [194]RADLEY"
  60. 580 PRINT"      ------------------------------"
  61. 590 PRINT"([208]RESS [210][197][212][213][210][206] [212]O [209]UIT)"
  62. 600 PRINT"[201][206][208][213][212] [206]UMBER [212]O ";PT$;" [196]IAL*[157][157][157]";
  63. 610 INPUT NU$
  64. 620 FORI=1TOLEN(NU$)
  65. 630 IFMID$(NU$,I,1)="#"THEN675
  66. 640 IFMID$(NU$,I,1)="*"THEN675
  67. 650 IFMID$(NU$,I,1)="-"THEN675
  68. 660 IFASC(MID$(NU$,I,1))>57THEN690
  69. 670 IFASC(MID$(NU$,I,1))<48THEN690
  70. 675 NEXTI
  71. 680 GOTO700
  72. 690 GOSUB1340:PRINT"[197]RROR [201]N [206]UMBER [201]NPUT...[210]E-[197]NTER.":XX=1000:GOSUB1260:GOTO340
  73. 700 IF NU$="*"THENPRINT"[209]UIT? ([217]/[206])                 ":GOTO720
  74. 710 GOTO760
  75. 720 GETG$
  76. 730 IFG$=""THEN720
  77. 740 IFG$="Y"THENPRINT"[147]":END
  78. 750 GOTO340
  79. 760 IFLEN(NU$)<7THENGOTO850
  80. 770 IFLEN(NU$)>30THENGOTO790
  81. 780 GOTO920
  82. 790 GOSUB1340:PRINT"";NU$:PRINT"[201]S [193] [194]IT [204]ONG               "
  83. 800 PRINT"[196]IAL [193]NYWAY?"
  84. 810 GETG$
  85. 820 IF G$=""THEN810
  86. 830 IF G$<>"Y"THENPRINT"[147]":GOTO570
  87. 840 GOTO920
  88. 850 GOSUB1340:PRINT"";NU$;" [201]S [204]ESS [212]HAN 7 [196]IGITS!"
  89. 860 XX=500:GOSUB1260
  90. 870 PRINT"[196]IAL [193]NYWAY?"
  91. 880 GETG$
  92. 890 IF G$=""THEN880
  93. 900 IF G$<>"Y"THENPRINT"[147]":GOTO570
  94. 910 IFAB=1THENGOTO1130
  95. 920 PRINT"[196]IALING ";NU$;" [193]TTEMPT [206]UMBER:";NA
  96. 930 PRINT"[212]O [193]BORT [196]IALING [207]PERATION [208]RESS [193]NY [203]EY"
  97. 940 PRINT"                 [193]ND [215]AIT               "
  98. 950 PRINT""
  99. 955 IFPT<>0THEN965
  100. 960 PRINT#2,"[193][212][196][212]";NU$
  101. 965 PRINT#2,"[193][212][196][208]";NU$
  102. 970 NA=NA+1
  103. 980 GET#2,A$
  104. 990 GETAB$:IFAB$<>""THENAB=1
  105. 1000 ER=ER+1
  106. 1010 IFER>2500THENMS$="":PRINT"[206][207] [195][193][210][210][201][197][210]":ER=0:XX=500:GOSUB1260:GOTO910
  107. 1020 IFA$=""THEN980
  108. 1030 MS$=MS$+A$
  109. 1040 IFA$=CHR$(102)THEN1120
  110. 1050 IFA$=CHR$(179)THEN1120
  111. 1060 IFA$=CHR$(177)THEN1190
  112. 1070 IFA$=CHR$(98)THEN1190
  113. 1080 GETAB$:IFAB$<>""THENAB=1
  114. 1090 ER=ER+1
  115. 1100 IFER>2500THENMS$="":PRINT"[206][207] [195][193][210][210][201][197][210]":ER=0:XX=500:GOSUB1260:GOTO910
  116. 1110 GOTO980
  117. 1120 PRINT"[206][207] [195][193][210][210][201][197][210]":MS$=""
  118. 1130 IFAB=1THENAB=0:PRINT"*** [193]BORTING ***":XX=1500:GOSUB1260:GOTO340
  119. 1140 XX=500:GOSUB1260
  120. 1150 PRINT"                  "
  121. 1160 PRINT"[196]IALING ";NU$;" [193]TTEMPT [206]UMBER:";NA;""
  122. 1170 ER=0
  123. 1180 GOTO960
  124. 1190 PRINT"[195][207][206][206][197][195][212]":NA=0:MS$="":GOSUB1340
  125. 1200 PRINT CHR$(142)
  126. 1201 PRINT"[147]       LOADING MODEM BATTLESHIP[144]"
  127. 1203 P$="MODEM BATTLESHIP"
  128. 1205 PRINT"":PRINT:PRINT:PRINT"LOAD";CHR$(34);P$;CHR$(34);",8,1"
  129. 1210 PRINTCHR$(19):POKE631,13:POKE198,1
  130. 1220 END
  131. 1230 REM *****************************
  132. 1240 REM *** TIME DELAY SUBROUTINE ***
  133. 1250 REM *****************************
  134. 1260 FORI=1TOXX
  135. 1270 NEXTI
  136. 1280 RETURN
  137. 1290 :
  138. 1300 REM *****************************
  139. 1310 REM *** ALARM/BELL SUBROUTINE ***
  140. 1320 REM *****************************
  141. 1330 :
  142. 1340 S=54272
  143. 1350 FORL=0TO24
  144. 1360 POKES+L,0
  145. 1370 NEXTL
  146. 1380 POKES+1,100
  147. 1390 POKES+5,10
  148. 1400 POKES+15,255
  149. 1410 POKES+24,15
  150. 1420 POKES+4,21
  151. 1430 GOSUB1550
  152. 1440 XX=500:GOSUB1260
  153. 1450 POKES+24,0
  154. 1460 FORL=0TO24
  155. 1470 POKES+L,0
  156. 1480 NEXTL
  157. 1490 RETURN
  158. 1500 :
  159. 1510 REM *****************************
  160. 1520 REM ***    SCREEN BLANKING    ***
  161. 1530 REM *****************************
  162. 1540 :
  163. 1550 POKE53265,100
  164. 1560 XX=250:GOSUB1260
  165. 1570 POKE53265,27
  166. 1580 XX=250:GOSUB1260
  167. 1590 RETURN
  168. 1600 :
  169. 1610 REM *****************
  170. 1620 REM * PULSE OR TONE *
  171. 1630 REM *****************
  172. 1640 :
  173. 1650 PRINT"[215]OULD [217]OU [204]IKE [212]O [196]IAL [208][146]ULSE OR [212][146]ONE?"
  174. 1660 GETPT$:IFPT$=""THEN1660
  175. 1670 IFPT$<>"P"ANDPT$<>"T"THEN1650
  176. 1680 IFPT$="T"THENPT=0:PT$="[212]ONE"
  177. 1690 IFPT$="P"THENPT=1:PT$="[208]ULSE"
  178. 1700 PRINT"[147]"
  179. 1710 RETURN
  180.